library(ggplot2)
finches <- read.csv("~/Dev/r-studio-binder/data/finches.csv", header=FALSE)
pca <- princomp(finches, cor=TRUE, scores=TRUE)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
df <- read.csv("data/szekely-2015-data.csv", header = TRUE)
df_numeric <- df %>%
dplyr::select_if(is.numeric) %>%
dplyr::select_if(~ !any(is.na(.)))
You can also embed plots, for example: